home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tech Arsenal 1
/
Tech Arsenal (Arsenal Computer).ISO
/
tek-03
/
ivb929.zip
/
GLOBAL.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-08-12
|
499b
|
17 lines
' OpenFile() Structure
Type OFSTRUCT
cBytes As String * 1
fFixedDisk As String * 1
nErrCode As Integer
Reserved1 As String * 1
Reserved2 As String * 1
Reserved3 As String * 1
Reserved4 As String * 1
szPathName As String * 128
End Type
' OpenFile() Flags
Global Const OF_EXIST = &H4000
Declare Function OpenFile Lib "Kernel" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Integer) As Integer